home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / cutl.zip / CAMLOAD.BAS < prev    next >
BASIC Source File  |  1993-03-01  |  930b  |  32 lines
  1. 100 ' CAMLOAD.BAS -- by PC Magazine
  2. 110 ' Works with P. Cheng's CAMERA.COM.
  3. 120 ' Must run this from CAM.BAT batchfile
  4. 130 ' on disk that contains three lines:
  5. 140 '      DIR ?.* > CAMERA.FIL
  6. 150 '      BASICA CAMLOAD
  7. 160 '      DELETE CAMERA.FIL   
  8. 170 OLDTIME$=TIME$
  9. 180 INPUT "Seconds per slide: ",S
  10. 190 IF S<1 OR S>59 THEN BEEP:GOTO 180
  11. 200 DIM A$(26),S(26):K=1
  12. 210 OPEN "camera.fil" FOR INPUT AS #1
  13. 220 IF EOF(1) THEN CLOSE:GOTO 310
  14. 230 T=0:INPUT #1,B$:M$=MID$(B$,10,3)
  15. 240 IF M$="40T" THEN T=1
  16. 250 IF M$="80T" THEN T=2
  17. 260 IF M$="MRG" THEN T=3
  18. 270 IF M$="HRG" THEN T=4
  19. 280 IF T=0 THEN 220
  20. 290 A$(K)=LEFT$(B$,1)+"."+M$
  21. 300 S(K)=T:K=K+1:GOTO 220
  22. 310 FOR A=1 TO K-1
  23. 320 ON S(A) GOTO 330,340,350,360
  24. 330 SCREEN 0:WIDTH 40:GOTO 370
  25. 340 SCREEN 0:WIDTH 80:GOTO 370
  26. 350 SCREEN 1:GOTO 370
  27. 360 SCREEN 2
  28. 370 BLOAD A$(A)
  29. 380 TIME$="0"
  30. 390 WHILE VAL(RIGHT$(TIME$,2))<S:WEND
  31. 400 NEXT:TIME$=OLDTIME$:SYSTEM
  32.